home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / easyrcs_1.3 / arexx / removeglobalsymbol.ercs < prev    next >
Text File  |  1996-09-03  |  462b  |  30 lines
  1. /*  RemoveGlobalSymbol.ercs
  2.  *    Yann Muller © 1996
  3.  *    Version 1.0   ---  03/09/96
  4.  */
  5.  
  6. OPTIONS RESULTS
  7. OPTIONS FAILAT 11
  8. ADDRESS EASYRCS
  9.  
  10. 'askstring "Remove symbol everywhere" Symbol'
  11.  
  12. if (RC == 0) then
  13. do
  14.     symb = RESULT
  15.  
  16.     'query showstate'
  17.     show_old = RESULT
  18.     'show both'
  19.     'select top'
  20.  
  21.     DO while RC == 0
  22.         /* symbol for each file */
  23.         'symbol REMOVE NAME' symb
  24.  
  25.         'select next'
  26.         END
  27.  
  28.     'show' show_old
  29.     end
  30.